home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / TMCM Software and Labs.sit / Software for TMCM 7_95 / Files for Lab 9 / I_O example next >
Text File  |  1994-05-09  |  2KB  |  49 lines
  1.  
  2. { This program illustrates input/output in xTurtle.
  3.   (Note how the position of the turtle changes after
  4.   the command DrawText is executed.) }
  5.  
  6. { The program reads an initial bank account balance from the user.
  7.   It then calculates the amount that will be in the account for the
  8.   next five years, assuming that the account earns 5% in interest
  9.   each year. }
  10.  
  11.  
  12.  
  13. DECLARE amount   { variable to hold the amount of money in the account;
  14.                    this changes every year }
  15.  
  16. { First, get the initial deposit from the user }
  17.  
  18. TellUser("This program will calculate your bank balance for the next 5 years, assuming a 5% interest rate.")
  19.  
  20. AskUser("What is starting balance in your account?", amount)
  21.  
  22. penUp           { Move turtle to point where I want text to appear }
  23. moveto(-7,0)
  24. penDown
  25.  
  26.  
  27. { Compute and display the amount after each of the next five years. }
  28.  
  29. amount := amount * 1.05   { compute the amount after one year }
  30. DrawText("After one year, you will have $#amount.")
  31.  
  32. amount := amount * 1.05   { compute the amount after two years }
  33. DrawText("After two years, you will have $#amount.")
  34.  
  35. amount := amount * 1.05   { compute the amount after three years }
  36. DrawText("After three years, you will have $#amount.")
  37.  
  38. amount := amount * 1.05   { compute the amount after four years }
  39. DrawText("After four years, you will have $#amount.")
  40.  
  41. amount := amount * 1.05   { compute the amount after five years }
  42. DrawText("After five years, you will have $#amount.")
  43.  
  44.  
  45. {Finally, inform user of the final amount in a dialog box }
  46.  
  47. TellUser("After five years, you will have $#amount; amounts for other years are displayed in the graphics window.")
  48.  
  49.